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f 
f THIS PROGRAM RELIES THE PROGRAM INTERUPT FACILITY FOR 
/ REAL WORLD TIMING PURPOSES, ) 
/ : | : 
Parce To Reancs Sits 
A2AOY #2 
22080 2290 _ 2 JEFFECTIVE JMS @ ON PROGRAM INTERUPT Zee / \T42 
20204 $4e@2 IMP 2 2 ZEXIT IMMEDIATLY TO SERVICE ROUTINE | go3l 
so2zme O513 INTSER | 
@Qee3 @fea EMPTY, @ ° THESE LOCATIONS ARE RESERVED FOR \9¢./ o263 
72604 72892 OOT1, Z /DEBUGGERS, ETC, - 
aeeas e292 GoTe, 2 | ; 
V2C06 272 COTS, B 
/ 
/ ALL ThE AUTO INDEX REGISTERS ARE NAMEO BUT NOT ALL OF 
/ THEM ARE USEO, THE STATUS OF ANY GIVEN REGISTER CANNOT 
/ BE DETERMINED AT ANY TIME EXCEPT 8Y CAREFUL INSPECTION OF 
/ THE CODE, | 
/ 
aie 1d 
ZeQ2i2. asae auToia, a 
Z2G2L1i @aeG AUTOLI, 2 
22312 e202 auTote, 2 
22213 3220 asuToL3, a 
QO714 @¢90 auTotie, 
AQB15 @e@e2 auTo1s, 


a 
"4 
A24vi6 2292 AuToOLle, @ 
22017 ABS AUTOLT, B 


/ : 

/ THe FOLLOWING ARE THE OATA FILES FOR THE TwO SPACE SHIPS 

/ AS WELL &S CERTAIN OTHER PARAMETERS FOR CALCULATING POSITIONS 

/ AND SG ON, THE ORDER OF THE LOCATIONS MUST BE PRESERVED 

/ ALTPOUGs THE SIZE OF THE TABLES MAY BE VARIED 

/ . 

G22 reg 

29028 8290 ONEQUT, @ /IF NON@=ZERO CONTAINS REAMINING TIME OF EXPLOSION 
P2821 AMZZ ONECNT, @ /NUMBER OF POINTS IN FIGURE TO BE NDISPLAYED 
22222 BLB2 OANEFLG, 2 sacar aerrerres oem, A IN OR OUT OF NORMAL SPACE | 
24423 B200 ONETHE, 2 “ /ANGLE OF ORIENTATION ON SCREEN 
geAeg AGB CGNEVEX, @ /X COMPONENT OF VELOCITY 
OZ223 @036 ONEVEY, @ SY COMPONENT OF VELOCITY 
20226 27200 ONEPEX, @ /X POSITION (42 BITS) 
22¢ce7 CA@0 ONEPEY, @ -4Y¥ POSITION (12 BITS) 
2A23G 88002 GNESIN, Q /SINE OF ANGLE 
GAGSL B00 ONECOS, @ /COSINE OF ANGLE 
Z@0352 640900 ONEFIN, @ /SET WHEN EXPLOSION DIES OUT 
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29661 
20062 


23053_ 


AZCON 


2290 
2228 
AGA2 
228 
O02 
C220 
GSS 


S282 
G20 
22302 
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2480 
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BEBO. 


THOOUT, 
TWOCNT, 
TWOFLG, 
TWOTHE, 


TWOVEX, 
TWOVEY, 


TWOPEX, 
TWOPEY, 
TWOSIN, 
TWOCOS, 
TWOFIN, 
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XONEODS, 
YONEOS, 
XTWwOOS, 
YTwWOOS, 
DIXTEM, 
DIYTEM, 
DISCNT, 
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TI@SIN, 
T&ASIN, 
T3QSIN, 
TI@GCOS, 
Te22cos, 
YS$2COS, 


CALSIN, 
CALCOS;, 
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/SAME CONTENT AND ORDER 
‘ /AS ABOVE © 


THESE LOCATIONS ARE USED BY THE "VECTOR GENERATOR" IN 
DISPLAYING THE FIGURES, A FOUR DOT VECTOR WILL BE DRAWN 
FROM XONE,YONE TO XTWO,YTHO WITH STEPS OF SIZE DIXTEM,DIYTEM 
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THE NEXT LOCATIONS ARE USED BY CALPOS To DO A FAST 
MULTIPLY TO HELP CALCULATE THE DISPLAY FILES, 
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173 / NOw COME THE VARIOUS OCOUS AND ENS ONE USUALLY FINOS ON : eon 
| {7d / PAGE ZERO Jue | : | 
175 / | 
| 176 
| Te 02365 6400 SINE, SINEIN 
{78 87266 6463 COSINE, COSINI 
| 179 22067 6624 MULT, MULTI ~~ 
| 180 @2B7Q «6675 RSMIFT, SHIFTR 
| 184 @@n7% 14675. VECTOR, DISPLY 
182 20u72 6783 CALPOS, POSCAL ee 
1 183 98073 @@090 INTwRO, @ —-—~———~ LEM cei 
164 82074 @Me@2 INTCNT, @ -. : : a 
185 98075 2022 CLOCK, %————~» | 


186 92276 2220 HYPER, HYPSET 


187  @2277 7408 MESOUT, CHARS 
188 @010@ 2475 THEAOJ, THEAJI 
189 @21@1 2454 VEESCL, VEELIM 
19? evige - 1535 -JSHFT, BIST 
191 @@1@3 1675 RESET1, RESE! 
$92 @0124 @272 GAMOVR, 2 
, 193. 20105 9000 ACCFLG, 2 : 
194 O21@6 7752 AaACCPER, =3¢6 
195 D107 7492 MEXP, 480 
196 


197 @HLiG @Aeq PROx, Ys 

196 U7Li4L @200 PROY, g | ee | 
$99 C®@i{ie 7420 PROLIF, #362 | Override Wha 
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TRE PROGRAM MAY BE STARTEO OR RESTARTED AT ANYTIME AT O208, 
THE DATA FILE ON PAGE ZERO IS CLEARED, ALL FLAGS INITIALIZED, 
AND THE SR EXAMINED, IF THE SR*@ THE DISPLAY UPDATE ROUTINES 
ARE SET TO PICK UP THE STATUS WORD FROM THE SR, IF THE SR 
DOES NOT EQUAL ZERO, TRE STATUS WORD IS READ FROM THE EIGRT 
CONTINGENCY INPUTS ON THE BLUE RIBBON CONNECTOR OF THE AXU8 
CXR GCPTION ONLY), JUMP IS THEN TO THE DISPLAY 

FILE UPDATE TO START OFF THE GAME, 


#202 3 : | 2 
CLA CLL /START OR RESTART HERE ANY OLD TIME 
LAS /SR 

SNA CLA 

TAD SWRO /USE THE SR 

TAD XROPT /USE THE BLUE RIBBON CONNECTOR 

OCA COLDST AND LEAVE IN THE TRAP LOCATION 

Re, —- CLR A/D (see ADYY 

CLA CLL 7 

TAD Pi? /FIRST CLEAR THE POSITION AND DATA 
DCA AUTOLZ —/TABLES OF THE TWO SHIPS 

TaD TABLEN 7 

OCA AUTO 

DCA I AUTOI2 

ISZ2 AUTOLI 

JM 2*e 

TAD STRTI /SET THE STARTING POSITIONS OF THE 
DCA ONEPEX /TWO SHIPS 

TAD STRT2 

NCA TWOPEX 

TAD P37 /SET TRIG FUNCTIONS JUST IN CASE 

DCA ONECOS , 

TAD PST fo 

DCA TwOCOS / /LERO DEGREES IS POINTING STRAIGHT UP 
TAD ACCPER / /SET COUNT FOR VELOCITY INCREASE 

DCA ACCFLG | i 

DCA ONEFIN /CLEAR ALL GAME END FLAGS 

DCA TWOFIN | 

DCA GAMOVR 

JMS I BUFSET p /RESET ALL PROJECTILE DISPLAY BUFFERS 
TAD eo oie ee /START UP THE CRYSTAL CLOCK IN THE Axa TAD 
ZTENYO ALVA, Be ols . 

OTEN * Be tana ot ce 

TCF : \ /CLEAR OTHER REMAINING LIKELY FLAGS 
PCE 

RRB | 

car oe > aed Ready Play cis as won NOP 
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XROPT, 
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UPDATE IS REACHED WHENEVER THE PROGRAM 18 STARTED OR THE 
CLOCK COUNT OVERFLOWS INDICATING TIME TO RECALCULATE THE 


THE DISPLAY FILES AND REFRESH THE DISPLAY, 


THE INTERUPT 


COUNT IS RESTORED, THE STATUS WORD IS PICKED UP FROM EITHER 
THE SR OR BRC, AND THE RECALCULATION PROCESS BEGUN, 


CLA CLL 


a 

LAS ve 
DCA INTWRO 
TAD INTWRD 
eT 

RTR 
AND LETRAF 
OCA INTTEM 
TAD INTWwRD 
AND RYTHAF 
TAD INTTEM 
JMP 443 


XRIN-—- G9.7.3 ADRES 
YRCL - 6530 ARLE 
DCA INTWRD ; | 
TAD MS5@ 

OCA INTCNT 

ION 

TAD ACCFLG 

IAC 

SMA SZA 

TAD ACCPER 

OCA ACCFLG 


cgrmr 2 «4 


ONEUP 


SETBUF 


AUTOI7T@CALCOS 
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O36e 

@217 

1098 

mi vag 
ebgoeCOOST 
JMP COOST 


(WERE ON CLOCK COUNT OVERFLOW, 
/START NEXT SWEEP 

/TRAP YO REAG SR OR BRC 

/RERE FOR SR ; ? 
(STORE TEMPORARILY 

/MASK GUT LEFTMOST & BITS | 

/FOR NUMBER ONE 


JANO STORE 
JMASK OUT RIGHTMOST BITS FOR NUMBER TwO 


/ADD TOGETHER 
AZAND CONTINUE 

Yen 
7/rmERE FOR BRC »= PICK UP AND CLEAR 


/CONTINUE | 
/RESTORE INTERUPT COUNT BEFORE NEXT 
/UPDATE : 

/GET READY FOR THE NEXT CYCLE 
/ALLOW VELOCITY INCREASE THIS TIME? 
/ONLY WHEN ACCFLGaG 


/IF ZERO, RESET COUNT 


NOW GET DOWN TO WORK, 
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THIS IS THE INTERUPT SERVICE ROUTINE, MOST OF THE 
INTERUPTS WILL BE FROM THE CRYSTAL CLOCK WHICH WILL BE 
COUNTED AND UNLESS THE COUNT OVERFLOWS THE INTERUPT I8 
DISMISSED IMMEDIATLY, IF THE COUNT OVER FLOWS, JMP IS TO 
UPDATE WITH IOF, | : 


SPECIAL CASE IS KEYBOARD INTERUPT WHEN THE GAMOVR FLAG I8 
SET IN WHICH CASE THE GAME IS RESTARTED, 


UNEXPECTED INTERUPTS ARE COUNTEO AND AFTER ENOUGH OF THEM 


HAPPEN THE PROGRAM MALTS, IF THIS HAPPENS RELOAD OR FIND THE 
STRANGE FLAG : 


OCA INTACC /HERE RIGHT AFTER INTERUPT = STORE 
RAR /AC AND LINK 
PCA INTLNK _ “FOR POSSIBLE CONTINUATION — 

SKXK = C}S) CUSK = swas IT THE CRYSTAL CLOCK? —— 

JMP INTBUS “NO TRY SOMETHING ELSE 


CLXK —“ 4 /35CLSA  /YES CLEAR THE FLaG 


ISZ CLOCK 7AND BUMP CLOCK COUNTER 
NOP “IGNORE OVERFLOW eee 
294° ENTONT OS 3 /TIME FOR AN UPDATE? 

JMP INTRET- /NO, OISMISS YHE INTERRUPT. 
JMP UPDATE AYES, GO TO LT 

KSF “WERE ON NONPCLOCK INTERUPT 
JMP 665 ; SNOT THE KEYBOARD 

KCC “CLEAR KEYBOARD FLAG 

TAD GAMOYR /1S THE GAMEOVER 

SZA CLA 

IMP RESTRT AYES, RESTART 

TCF ; | : “NO, HELL WITH IT 

ISZ INTGLH /COUNT ONE BADOIE 

SKP ! 
HLT | “HALT IF TOO MANY BADDIES 
CLA CLE “HERE TO DISMISS THE INTERUPT 
TAD INTLNK - } | 3 
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NOW BEGINS THE GREAT UPDATE PROCEEDURE, FIRST FOR SHIP 
NUMBER ONE (THE OELTA SHAPED SHIP WHICH APPEARS ON 

THE LEFT AT TRE START OF THE GAME), IF ALIVE THE STATUS 
WORD CINTWRDJ IS TESTED FOR REQUESTS FOR LEFT TURN, 


RIGHT TURN, 


THRUST ON, 


AND LAUNCH PROJECTILE, THESE ACTIONS 


MAY OR MAY NOT BE ACTED UPON DEPENDING ON COUNTS ANO FLAGS, 
WHEN THIS IS COMPLETE THE SAME OPERATION IS PERFORMED FOR 


NUMBER TWO. 


4D 


TAQ ONEFLG 
SNA | 
JMP ONEQK 
TAC 

SNA 

TAD ONEFIN 
DCA ONEFLG 
JMP IT TTWOUP 


TAD QNEQUT 


SZA CLA 

JMP ONEFIG 
TAD TWOFIN 
SZA CLA 

JMS 2 ONEWN 
TAD INTWRO 
AND OP 32¢ 
TAD OM3G@ 
SZ4 CLA 

JMP ONELEF 
CMA 

JMP J HYPER 
TAD INTHWRD 
ANDO Pee 
SNA CLA 

AMP ONERYT 


CLA Col CMA 


IMP ONEFIG 


TAD INTWRDO 
AND P1@@ 
SZA CLA 


fac) 


TAD GNETHE 
JMS I TREADS 
DOA ONE THE 
TAD OQNETHE 
JMS JT SINE 
OCA ONESIN 
TAD ONETHE 


/JFIRST SEE IF IT*°S IN NORMAL SPACE 7? 


YES IT 78 
/NO, BUT IS IT JUST COMING OUT? 


/YES, THROW BACK IN TF ALREADY DESTROYED 
JOTHERWISE JUST COUNT ONE 
ZAND GO TO FIX UP NUMBER TWO 


JIN NORMAL SPACE « 18 IT EXPLODING? 


SIF YES, ALLOW NO CONTROLS 
/WAS THE ENEMY BEEN VANQUISHED? 


/YES, SIGNAL VICTORY 
/NOW BEGIN TEST OF REQUEST 

/LEFT AND RIGHT TURN TOGETHER MEAN HYPERSPACE] 
/TEST BITS 4 AND § 


/NOPE, CONTINUE 
/YES, CALL HYPER WITH ACtel FOR NUMBER ONE 


/REQUEST FOR LEFT TURN? 
/TEST BIT a 

/NO 

/YES DECREMENT ANGLE 


/WOW ABOUT RIGHT TURN 
fyee?. OLY 5 


/YES, INCREMENT ANGLE 


/PICK UP AND ADJUST ANGLE (MAYBE) 

BRING BACK WITHIN LIMITS OF TRIG FUNCTIONS 
JAaND STORE 

FIND THEM TRIG FUNCTIONS 

/AND STORE ONCE AND FOR ALL 

JIN THE APPROPRIATE PLACES 
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ACCFLG © 
CLA | 
ONEVEL 
INTWRD 
P4Q 
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ONEVEL 
ONECOS 
ONEVEY 

I VEESCL 
ONEVEY 
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i ONEVEX 


A VEESCL : 
ONEVEX 


ONEVEX 
I ISHFT “48235 
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ONEPEX 
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‘ALLOW ANY VELOCITY INCREASE THIS EYCLE? 


/NOPE 
/YES, ANY REQUESTED? 


‘TEST BIT 6 


/NONE REQUESTED 

YES, ADD IN VELOCITY INCREMENT DEPENDING 
JON ORIENTATION 

/BUT DO NOT ALLOW To EXCEED MAXIMUM 

AND STORE 

700 THE SAME FOR THE OTHER (x) COMPONENT 


/NOW UPDATE THE POSITION WITH THE 
“VELOCITY COMPONENTS DIVIDED BY 4 
“THIS MAINTAINS MAXIMUM RESOLUTION 


IGNORE ANY OVERFLOW hes 
/00 THE SAME FOR Y COORDINATE 
/ANO VELOCITY COMPONENT | 


‘400 NOT ALLOW PROJECTILE LAUNCH IF 


/EXPLODING 
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2527 4353 ONELNC, TAD 
22512 7658 SNA 
e511 . 5314 JMP 
2512 2353 — 18Z 
42513 57582 JMP 
G@514 1073 TAD 
22515 @121 AND 
¥2516 7652 SNA 
98517 5752 JMP 
852@ tile TAD 
ZYY5e1 3416 DCA 
2Ase2 1224 TAD 
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A4S527 Seis DCA 
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245 $1 7186 a 
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22534 1025 TAD 
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2°536 GUTQ JIMS 
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2541 3416 OCA 
22542 {asi TAD 
25435 71486 gus 
C7544 4227 TAD 
22545 34at6 DCA 
623546 1137 TAD 
C7547 33553 DCA 
32550 4503 JMS 
24551 .5752 JMP 
82582 M7688 I ITWOUP, THOL 
22555 2000 \LNCIFG, @ 
22554 9300 OP302, 322 
22555 7528 OM34%, 386 
22556 2527 ONEWN, ONEW 


LNCLFG 
CLA 
2% 
LNCAFG 

I ITWOUP 
INTWRD 
Ped . 

CLA 

T ITwOuP 


PROLIF 

I AUTOL6G 
ONEVEX 

1. ESHFT 
I RSHIFT 
ONESIN 

1 RSHIFT 
T AUTO16 
ONESIN 
RTL 
ONEPEX 


I AUTOL6 


ONEVEY 

] .2SHFPT 
T RSHIFT 
ONECOS 

I RSHIFT 
T AUTOL6 
ONECOS 
RTL 
ONEPEY 

I AUTOL6 
M222 
LNCLFG 

I RESET 


I etl 
Pp 


IN 


1/ii/74 


PAGE 12 BE sation ee 7 | ee 


/OTHERWISE, SEE IF RELOAD IS FINISHED | . s @ 


“NO, CONTINUE RELOADING 
/AND EXIT : 
/YES, READY TO LAUNCH, 
/TEST BITT , 


TRIGGER BEEN PULLED? 


/NO, WAIT FOR A BETTER SHOT 

fiteeat GUESS ences 

/YES, SET CYCLE COUNT FOR THIS LAUNCH 

/AUTOLG ALWAYS POINTS AT TRE NEXT?SLOT IN THE FILE 
7ADD SHIPS VELOCITY (SCALED OF COURSE) 

TO ORIENTATION TO EXTABLISH X VELOCITY 

/COMPONENT OF PROJECTILE 

AND STICK IT IN THE FILE 


/MOVE THE LAUNCH POINT QUTSIDE THE 
SHIP OF ORIGIN 


f/SNO STORE X POSITION 


NOW 09 TRE SAME FOR THE Y VELOCITY ANO 
/POSITION 


START RELOAD CYCLE 
“RESET AUTOI6 TO NEXT HOLE 


/NOw TO FIX IT UP WITH NUMBER TwO 


/PROJECTILE LAUNCH ENABLE 
/SHYPERSPACE REQUEST CODE BITS 4 AND 5 


/POINTER TO VICTORY MESSAGE 


SPACE WAR 
525 
52s 
Sel 
52 & 
S29 
$32 
5314 C699 
532 3 
ae Z@6AG {235 
S24 292621 7459 
S355 245%e@ 5212 
535 Z26935 7eal 
537 22624 745Q 
Sat 27625 {845 
539 ©2646 3935 
942 20687 ..5759 
544 
54? 22618 1633 
S43 ~_d6j1 7542 
544 g2et2 $235 
545 04613 1832 
S46 22644 T764Q 
547 323615 48754 
S42 22616 i1a73 
549 226017 2352 
ao AZ628 1353 
- ee gabet 765¢ 
552 %2be22 5476 
335 | mae 
554 22623 1@73 
S35 eehed O17 
S56 42625 7652 
5S? O2thee Se3q 
558 é%eoe7 T7544 
5595 £4632 5235 
552 
S56} 24631 7307 
542 20632 @273 
543 24633 76492 
S64 @2634 7281 
565 
56 226035 1236 
567 22636 4522 
546% C2637 3636 
569 YZ64Q 1036 
572 93641 44469 
SY Z2G642 3845 
S72 02643 1236 
573 22640 4466 
S74 22645 3044 
S75 2B646 12833 
S7& Z2e47T T7642 
577 $4652 5272 


Me, 


TWOUP, 


TWOOK, 


TWOLEF, 


TWORYT, 


TWORIG, 


eS ee 


PALS=V7 


1/11/71 


PAGE if 


MERE BEGINS THE UPDATE PROCEEDURE. FOR SHIP NUMBER TWO, 


CPERATION IS 


OOO 


TAD 


TWOFLG 


TWwOOK 


TWOFIN 
TWOFLG 


TWOOUT 
CLA 
TWOFIG 
ONEFIN 
CLA 

I TWOWN 
TINTWRO. 
OP 14 
OM1& 
COR e,. 
1 HYPER 


INTWRD 
P12 
CLA 
TWORYT 
CLL CMA 
TWOFIG 


CLE Za. RIL 
INTWROD 
CLA 


TWOTHE 
I THEADJ 
TWOTHE 
TWOTHE 
I SINE 
TWOSIN 
TWOTWKE 
I COSINE 


. TwOCOS 


TwOOUT 
CLA 
TWOVEL » 


‘I 1oNesT 100? 


THE SAME AS FOR NUMBER ONE ABOVE, 


/FIRST SEE IF IT*®S IN NORMAL SPACE 


/YES, CONTINUE 
NO, BUMP COUNT AND TEST FOR REENTRY 


a 
/IF RERFENTERING THROW BACK OUT IF FINISHED 
/AND CONTINUE 


/HERE WRKEN READY TO UPDATE IN NORMAL SPACE 
/IS IT EXPLOOING? 

/YES 00 NOT ALLOW RYPERSPACE 

OID wE JUST WIN? 


/YES ENABLE END OF GAME MESSAGE 
/TEST FOR HYPERSPACE REQUEST 


/BITS 8 AND 9 MUST BE net 


/8 AND 9 SET, ENTER HYPER ROUTINE WITH ACEQ 


/FOR SHIP NUMBER 2 
TEST FOR LEFT TURN. = GIT 6 


NOT SET 
/SET, DECREMENT YWOTHE BY 1 DEGREE 


 ASKIP TEST FOR RIGHT TURN 


TEST FOR RIGHT TURN = 817 9 


/IF SET INCREMENT TWOTHE BY 1 DEGREE 
/UPOTAE TWCTHE 

/BRING TO WITHIN LIMITS OF SINE,COSINE 
AND STORE 


/CALCULATE SINE AND COSINE FUNCTIONS 
/AND STORE IN DATA TABLE 


/Q0 NOT ALLOW VELOCITY CHANGE IF EXPLODING 


582 
Ry e285. 1185 TwOMOV, TAD ACCFLG 
BSe. 226SE- 7 Kag SZ4 CLA 
383 ¢fe53 52794 JMP TWOVEL 
584 2¢geSe 7145 Chie IAC RAL 
58S eceSS 2373 AND INTWRD 
58% cess 7552 SNA CLA 
Sa? 2257 Sarg JUMP TWOVEL 
'. 588 
5495 22682 (243 TAD TWOSIN 
59¢ p26! 1237 TAD TwOVEX 
39: 22662 a534 JMS I VEESCL 
272 ¢2663 3237 DCA TWOVEX 
553 : , ) 
894 ecvehs $344 TAD TWOCOS 
$35 get&$S 1232 TAD TWOVEY 
594 22666 a591 JMS I VEESECL 
597 22667 32ag DCA TROVEY 
598 o, | 
599 
29 | 
A214 eZe?e 1337 “TwOVEL, Tad THOVEX 
 =6h6he 2¢t7t a5$92 JMS I ISHFT 
|. 623° 22e7%s-a5ge JMS I ISHFT 
«gee 22873 gay TAD THOREX 
| S25 27576 3244 DCA TwOPEX 
| 2s 2zeTs j4a¢ TaD TwOVvEyY 
| 627 C747 § ase JMS I ISHFT 
| 626 227677 45¢2 JMS I ISHFT 
1 629. 22722 - 1ad2 TAD TWOPEY 
| 612 2272¢ 3982 DCA TWOPREY 
1 611 72722 1833 TAD TwOCUT 
1 éie 22723 7649 SZa CLA 
| 613 27724 §$75a JMP T IONEST 
| bie | | 


Se er Te er En ae ee ee 


/NOW FOR ACCELERATION, TEST TO SEE IF ALLOW 
/OURING THIS UPOATE CYCLE pia 


“NOPE 


AVES, TEST FOR BIT 2 SET 


/NOT SET 


UPDATE X VELOCITY COMPONENT BY SINE OF 
/ANGLE OF ORYENTATION : 

AND SCALE TO NOT EXCEED max 

UPDATE ¥ COMPONENT WITH COSINE 


/NOW UPDATE THE POSITION WITH THE VELOCITY 
/COMPONENTS/16 


20785 


ZATAGS 
227207 
E2712 
271i 
23712 
Ja713 
Z27i4 
24715 


22716 
@27i7 
B27 eq 
22721 
Gar%ee 
22723 
ZA724 
Y47e5 
22726 
C2727 
22732 
227 3i 
“else 
22733 
22734 
ZA735 
O77 36 
22737 
22749 
e27a4 
227se 
2274s 
Z27TSY 


“@ATAS 


22746 


22747? 
22752 


Qa7Si. 


ZA7TSe 
92753 
223754 


TWOLNC, 


IGNEST, 


LNC2FG, 


QOPi4, 
OMiL4, 


TWOWN, 


TAD 
SNA 
JMP 
132 
JMP 
TAC 
AND 
SNA 
JMP 


TAD 
DCA 
TAD 
JMS 
JMS 
TAD 
JMS 
DCA 
TAD 
CLL 
TAD 
OCA 
TAD 
JMS 
JMS 
TAD 
JMS 
DCA 
TAD 
CLL 
TAD 
DCA 
TAD 
OCA 
JMS 


IMP 


PALBeV7 i/its7i 


LANCe@FG 
CLA : 
o%3 
LNC2FG 

T IGNEST 


INTWRO 
CLA 
I IONEST 


PROLIF 

I AUTO1i6 
TWOVEX 

I ISHFT 
I RSHIFT 
TWOSIN 

I RSHIFT 
IT AUTOL6 
TWOSIN 
RTL 
TWORPEX 

I AUTO16 
TWOVEY 

Lt Lan y 


I RSHIFT - 


TwOCOS 

I RSHIFT 
I AUTOL6 
Twocos 
RTL 
TWOPEY 

I AUTO16 
Mea 
LNC2FG 

I RESET! 


ae ee 


ONESET 


2 


14 
~{4 


TWOWIN 


/NOW CHECK FOR PROJECTILE LAUNCH, FIRST 
/TEST TO SEE IF RELOAD COMPLETE 


/NO, COUNT ONE CYCLE AND EXIT 
/YES, TEST TRIGGER BIT it 


/NOT SET, HELL WITH IT 

/OK, SET PROJECTILE LIFE 

/AUTOL16 IS ALWAYS POINTING AT THE NEXT SLOT 
7400 SHIPS VELOCITY 

/ (ADJUSTED) 


/TO THAT OF PROJECTILE = AGAIN X COMPONENT 
/FROM SINE OF ANGLE OF ORIENTATION 


/SET INITIAL POSITION TO BE JUST AHEAD 
AUF. THE SHIP 
4X COMPONENT 


SNOW THE Y COMPONENTS FROM Y VELOCITY 
“/Y POSITION ANO COSINE 


/208 CYCLES OF RELOAD 
/DRINK LEADEN DEATH, NUMBER ONE! 


/FINAL EXIT TO DISPLAY FILE CALCULATIONS 


/RELOQAD COUNT 
/RYPERSPACE CODE 


aia ga oae ame OCU at Woh. kee cmc Chae oe kl a ee ig oe a as ies as: eae re am 
SPACE WAR PAGE 13 


S 6) 
a 


2S 


S Ss a 
bee gee 


Ae 
@1¢a3 
21024 
Q1Aaas 
Zi Aae 


Diva. 
BLAIS 


12a 


7328 
Luee 
T6482 
sias 


1@30 


3263 
1231 
3064 
autre 


~N ™j MH ROT Ne NR TUR SR RRR RTE TT SR MARS 


ONESET, 


™ DT! A SOT 


MERE BEGINS. THE OISPLAY CALCULATIONS FOR THE TWO SHIPS, AT 
THIS POINT'ONLY THE POSITION ANO ORIENTATION OF EACH VESSEL 
TS ONF INTEREST SINCE THE VELOCITY AND ALL THAT HAVE ALREADY 
BEEN TAKEN CARE OF, FOR THE BOTH SHIPS THE DISPLAY FILES ARE 
CALCULATED AS A SERIES OF PAIRS OF X,Y COORDINATES, BETWEEN 
EACH PATR OF POINTS A FOUR POINT VECTOR WILL BE DRAWN, THE 
ACTUAL COORDINATES ARE CALCULATED AS DISPLACEMENTS 

FROM THE CENTRAL PSOTION OF THE SHIP, TAKING INTO ACCOUNT THE 
ANGLE OF ORIENTATION, THE FORMULAS FOLLOWED ARES 


X (POINT) 8X (BASE) #x (REL) #COS (THE) #¥ (REL) RS INE CTHE} 
Y (POINT) #¥ (BASE) #¥ (REL) #COS [THE) =X (REL) WSINE [THE} 
WHERE SINE[THE] AND COS{THE] ARE THE FUNCTIONS OF THE 


ANGLE OF ORIENTATION, X(BASE) AND YCBASE) ARE THE 
CUCRDINATES OF THE SHIPS POSITION AND XCREL) AND YCREL) 


CORRESPOND TO DISPLACEMENT PAIRS DEPENDING CN THE SHAPE 


OF THE FIGURE, ALL X AND Y RELS LIE WITHIN THE RANGE @=3 AND . 
THERE FORE ALL NECESSARY DISPLACEMENTS FROM BASE COORDINATES 
MAY BE CALCULATEDFROM DIFFERENT COMBINATIONS OF TIG3IN, Teecos 
ETC, THESE VALUES ARE CALCULATED 8Y A CALL TO POSCAL WITH THE SINE 
AND COSINE OF TRE ANGLE OF INTEREST IN CALSIN AND CALCOS, | 


FOLLOWING THIS METHOD ANY FIGURE DESCRISABLE WITH A 7 BY 7 


MATRIX GF POINTS MAY BE QUICKLY CALCULATED, 


BEGINNING AT ONESET OIFFERENT OISPLACEMENT PAIRS ARE CALCULATED 
AND DEPOSITIEG THROUGH AUTO1@ TO FORM THE DISPLAY FILE FOR SHIP NUMBER ONE, 


ei 220 


/BEGIN DISPLAY FILE FOR NUMBER ONE 
/OONT BOTHER IF NOT IN NORMAL SPACE 


CLA 
TAD 
SZA 
JMP 
TAD 
OCA 


CLL 
ONEFLG 
CLA 

I ITWwOST 
ONESIN 
CALSIN 
TAD GNECOS 
DCA CALCOS 
JMS IT CALPOS 


| fs ~ 


/SET UP FOR MATRIX COMPONENT CALCULATIONS 


CALL THE CALCULATOR 


CONSIDER THE 7 BY 7 MATRIX OF DISPLACEMENT POINTS WITH TRE 
CENTER AT @,@ CORRESPONDING TO THE SHIPS POSITION, A SERIES 
OF POINTS IS NOw DESCRIBED AROUND THIS CENTER USING THE 
MULTIPLES OF THE TRIG FUNCTIONS JUST CALCULATED 

SO THAT ANY POINT ON THE OUTLINE ITS DESCRIBABLE AS X,Y 
OISPLACEO BY X,Y OF THE SHIP ITSELF 


: tener OOO ~ ee et NO NAD A LEAD NG OIE NC LAA Apt a Dp AIR DLP AALBERS jo 


“~ 


> 9 
I od 


Mw TY MS AU PT 7D re ee 


ee i Ei ie a” i ee ee ell 
Ww 
we“ UI & WW A +. So 


—6© 21011 
" 21812 
21233 
21014 
21215 


SPACE 


FAD 
DCA 
TAD 
TAD 
DCA 
TAD 
TAD 
OCA 


TAD 
CIA 
TAD 
DCA 
TAQ 
TAD 
DCA 


Tad 
TAD 
CIA 
TAD 
DCA 
TAD 
CIA 
TAD 
TAD 
DCA 


Ce rE ee ae eee 


PAL&=V7 


ONEF IL 
AUTOLS 
ONEPEX 
TS@SIN 
I AUTOL@ 
ONEPEY — 
T32CO08 
IT AUTOL2 


TAIPCOS 


ONEPEX 
I AUTO1g 
TI@SIN 
ONEPEY 
I AUTOM 


T3SSIN 
T3QCOS 


ONEPEX 
I AUTOI2 
T3ACOS 


TZ2SIN 
ONEPEY 
I AUTOLQ@ 


PAGE 144 


“SET UP AUTOL] AS THE DISPLay FILE 


/THE FIRST POINT OF THE OUTLINE I8 


' OR TOP CENTER 


/THE SECOND [S$ 
/OR JUST LEFT OF DEAD CENTER 
7ANO $O ON 


/THE THIRD POINT JS 


/OR BOTTOM LEFT HAND CORNER 


a i i i Me Mee Ei Ml Eli Mi | 
KX - & & 
en ee 


WIN uw Ui wt £ & 
S Whe fo O 


21126 
ZLLBT 


21119 
Ciili 
Citie 
Sii73 
diii4 
@4115 
Q@ii1i16 
@ili17 
01128 


WAR 


1455 
72G4 
1226 
3442 
{g6a 
7TO44 
{227 


312 


1273 
G123 
765¢ 
2321 
1gev 


7648 


9321 


1554 
7458 
73a4 
3354 


2354 
5321 


1355 
7240 
3355 


1335 
7650 
1055 
1257 
7244 
ige6é 
3412 
1355 
7650 
126 


1d6e 


7044 
1027 
341g 


1@55 
7O44 
1ve6 


3419 


1469 
7241 
1027 
3419 
7344 


FLAMIL, 


TAD 
CIA 
TAD 


OCA 


TAD 
Cia 
TAD 
DCA 


TAD 


AND 
SNA 
IMP 
TAD 
SZA 
JP 


TAD 
SNA 
CLA 
OCA 


1SZ 
IMP 


TAD 


CMA 
OCA 


TAD 
SNA 
TAD 
TAD 
CIA 
TAD 
DCA 
TAD 
SNA 
TAD 
TAO 
CIA 
TAD 
DCA 


TAD 
CI4 


_ TAD 


DCA 
TAD 
ci4 
TAD 
OCA 
CLA 


PALBRV7 


TI@SIN 


ONEPEX 
T AUTOLD 
TiLSaCo0Ss 


ONEPEY 
I AUTOI2 


INTWRO 

P4Z 

CLA 

ONECON 
ONEQUT 

Cia f 
ONECON 


ONFGI 


CLL CMA RAL 
ONF G4 


ONFGL 
ONECON 


ONFGe 
ONFGe 


ONF Ge 
CLA 

TIBSIN 
TSQSIN 


ONEPEX 

IT AUTOILO 
ONFG2 
CLA 
Ti@COS 
T3A@COS 


ONEPEY 
IT AUTO1@ 


TASSIN 


ONEPEX 
IT AUTO12 
TAZCOS 


ONEPEY 
I AUTOI® 
CLL CMA RAL 


LAAs FS 


PAGE 15 


FOURTH PQINT 
/ Z,prs 


/OR JUST BELOW CENTER 


/TEST FOR POWER ON, IF ON, ORAW THE 


FLAME WITH AN EXTRA POINT SOME 
DISTANCE DIRECTLY BELOW THE SHIP , 
/POWER NOT ON = CONTINUE 

O00 NOT ALLOW IF EXPLODING 


/USE ONFG1 TO TURN THE FLAME ON AND 
/OFF TO MAKE IT FLICKER, DISPLAY THE 
/FLAME ONE TIME OUT OF THREE 


/ONE OUT OF THREE TIMES THIS WILL SKIP 


/VARY ALSO THE LENGHT OF THE FLAME 


/WITH LONG SHORT LONG SHORT 


/TIP OF FLAME AT EITHER 


/ , O,wd4 OR 
/ A,=3 


/RETURN DISPLAY TO @,=1 


/ADD #2 TO POINT COUNT 


b acai | a Ae TR OES ke: Oe OR A, Sat eT Ee ee Pe ne ee 


yt i en a tt ns PN eta i ls teint eset em A 


2 uk -PALaeV? aaas7a PAGE 15e1 


~ 


UH wp SO oe wh Oo & w& O & OB wm WwW & on” 


PG WU ee oe ee oe ee ee ee Pe ee ee MM OS SQ fy 1 tw 


Mery Ow sw WW in Mee © wm ER US OE tt fee 


© mw OF Ww ww th oo @ ow ow 


oe oO Ot Ce 
hah Lal od Led Gad Lay dee Led PR AD AY WA So Ter Rp Pe 


“OPAL tA Tue fo Dw sur un i us 


t oO 
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21121 1133 ONECON, TAD M6 7 | /SET POINT COUNT TO =-6 OR «8 


@ije2° 302) OCA ONECNT 4 
91423 1057 TAD T3OSIN /CONTINUE WITH DISPLAY FILE » THIS POINT 
1124 7aa4 ~ CIA 

21125 1e6e2 TAC T32cOS / AT 3,63 

21126 1R26 TAO ONEPEX / : 

Q1127 34a — OCA I AUTGLO /OR LOWER RIGHT HAND CORNER 
@ti3@ 4@57 TAD: T32SSIN 

¥1131 1262 TAO T3@COS 

61132 7041 CIA : 

21133 1027 TAD GNEPEY ri 
31134 3410 | DCA I AUTOYA 

21135 %¢6¢ TAD T1@COS —ANEXT 

21136 {@e26 TAD ONEPEX / 

21137 3412 OCA I AUTOLA 3 / 1,2 

2114@ 4255 TAD TIGSIN / 

21141 744. CIA } / OR JUST RIGHT OF CENTER 

21142 1827 TAD ONEPEY 

21143 3a42 OCA Ff avuToie 

21144 1057 TAD T3@SIN  /FINALLY BACK TO 

®1145 {eze TAD ONEPEX / 

Z1146 344¢ | OCA I AuTOL@ / 2,3 

21147 1062 TAD T3OCOS /- 

21152 $927 TAD ONEPEY / TOP CENTE 

@i1st 3419 OCA I AUTO? : 

21152 5753 JMP I ITWOST /NOW FOR NUMBER TwO 

211453 1200. ITwOST, TwNSET | . : 

21154 @ugo ONFGi, 2@ | /USED TO COUNT FLICKERS 

21155 2220 ONFG2, 2 a /SHORT OR LONG FLAG 


Py ow he Owe wom ce wo @® mw OW to 


SPACE WAR | PALSeV7 1/11/71 PAGE 17 

K3A 

835 / ue : 
Bug / HERE BEGINS THE DISPLAY, FILE GENERATOR FOR SHIP TwO, 

Bat / IT wORKS JUST LIKE THE ONE FOR NUMBER ONE BUT WITH 

due / NIFFERENT DISPLACEMENT PAIRS AND TWO EXTRA POINTS 

Aus / | 

Rad 
BAS 1292 1222 

But | 

Bay 31290 7300 TwOSET, CLA CLL : /OONT BOTHER IF NOT IN NORMAL SPACE 
B48 dled, 12835 TAD TWOFLG | 
849 91202 7640 SZA CLA x9 
€$2  @1283 5775 JMP T IFILOS ; : a 
854 21204 1943 TAD TWOSIN _ /SET UP TO HAVE DISPLACEMENT INCREMENTS 
a52 1295 3263 | DCA CALSIN /CALCULATED 

S3 31296 1¢@44 TAD TwOCags ee 

Su. Si2ea7. 3064. DCA CALCQS 

$5 29219 4472 | JMS I CALPOS 

5% | bags 3 

Ss? e¥2tt.. 1115 TAD TWOFIL | /SET AUTOI@ TO POINT TO SECOND DISPLAY 
58 1212 301¢ DCA AUTOLD ! /FILE | 
59°. 21213° 1957: TAD T3OSIN /FIRST POINT AT ae | . 
63° al2te 10944 TAD TWwOPEX / 3 , 
61 21215 3442 Mca I AUTOLE ij 0,3 

52 24246 {962 TAD T3CCOS / | 

3 - 21217 1¢@42 TAD TWOPEY / OR TOP CENTER 

64 21228 3412 NCA I AUTOLS 3 Meee Soak 

e5 | ‘ 7 

be 23221 1061 TAD T2e@COS 

67 91222 Toa4 CiA 

868 21223 1056 TAD T2ZSIN 
8&9 Zi2es {a4 TAD TWOPEX 
A72  @1225 341¢ Oca I AUTO1a 
A741 @1e2h 1956 TAD T2Q@SIN 

872 21227 1064 TAD T22C08 /SECOND POINT 

873 21232 1942 TAD TWOPEY 3 / ~2,2 

874 Zia3i 3442 DCA I AuToLe 

ATS 
B76 @1232 1061 TAD Tegcos /THIRD POINT 

677. > wie33 - Teal CIA ig ~2,0 

A7é 1234 174} . TAD TWOPEX 
A79 =. @1235 «63412 DCA I AUTOLe 
883 21236 1256 TAD T2QSIN 

BBY 91237 {nae TAD TWOPEY 

882 g124a 3410 DcA I AUTOL® 

BRS 

Ba 
ABS 
83h 21244 1061 TAD Tee@COS ? 
887 21242 1257 TAN T3QSIN 

B88 81243 7241 CIA 

B89 21244 1244 TAO TWOPEX —/FOURTH POINT 

89 91245 3419 DCA I auToia / =2,%3 

854 21246 4462 | TAD T32CO08 ? | 


892 81247 Toa, © CIA 


ar 88 
aes 


01250 1056 = TAD T2QSIN 
A EN EY 


SPACE WAR —————*«éi ALB VT OA/LA/72 0 PAGE 170d 


SPACE | 


¢1253 


é1e256 
71255 
21256 
Yi257 
61260 
21261 
2iebe 


31263 
71264 
21265 
D1e66 
a1267 


FLAMe, 


PALB=V7 4/11/74 PAGE 18 


T2QSIN 


THOPEX 
I AyTO1e 
T2BCOS 


TWOPREY 
T AUTO19 


CLL TAC RAL 


INTWRO 
CLA 
TWOCON 
TROGUT 
4 
TWOCON 


THEGS 


CLL CMA RAL 


THFG4 


TRFGL 


 TWwOCON 


TwFrGe 
TWFGe 


TwFEFGe 
cies 
T2e@SIN 
T3QSIN 


TwOPEX 

T AUTO 
TwFrG2 
CLA 
TEGBCOS 
T3ACOS 


TWOPEY 
I AUTO12 


T2EASIN 


- TWOPEX 


I AUTOM 
Te@COS 


TWOPEY 
IT AUTO19 


/NEXT 


/ 


/NOW 


JNO, 
/NOT 


/SET 


/ALSO THE LENGHT VARIATION 


/EVERY OTHER TIME LONG 


/ 


— 7OR 


/ 


2,2 


THE FLAME BIT, CHECK FOR PQWER ON 
a 


FORGET If 


ALLOWED IF EXPLODING 


THE 1e3 FLICKER AS WITH #1 


/FLAME TIP AT EITHER 


O,e3 


; 0,75. 


/NOW BACK UP TO THE SHIP 


PAL BVT i/t/74 PAGE 189 


7400 #2 TO POINT COUNT 


ie CLA CLL CMA RAL : 


0.0 0 a wo 0 
Ww Oo O& @ Ww DB 
“Pe inh Me & 


934 


WAR 


TWOCON, 


TAD 
DCA 


TAD 
CIA 
TAD 
TAD 
DCA 
TAD 
TAD 
CIA 
TAD 
OCA 


JMP 


PALB=V7 3/13/71 


Mia 
TWOCNT 


T3QSIN 


Te@las 
TwOPEX 


I AUTOLG 


T3QCOS 
TeEABSIN 


TWOPEY 
I AUTOLG 


~—T2eacas 


TWOPEX 
I AUTO12 
TASSIN 


TWOPEY 
I AUTO12 


T2EC9S 
T22SIN 
TWOPEX 
I AUTOQLG 
T2ASIN 


T228CO0S 
TWOPEY 
T ALTOS 


T3SSIN 
TWOPEX 
I AUTOL®@ 
T3ECOS 
TWOPEY 
TI AUTO 


I IFILOS 


IFILOS, FILDIS 


TWEG1, 
TWFGe, 


g 
Y 
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| /SET POINT COUNT TO =8 OR =10 


JCONTINUE WITH DISPLAY FILE 
/NEXT POINT AT 2,5 


/NEXT POINT. 
/ 
/ 2,@ 


/ANO THE NEXT AT 


os 2,2 


/AND THE LAST AT 

/ 

/ 0,3 

JNOW TO DISPLAY THE WHOLE MESS 


/FLIK THE FLAME 
/LONG OR SHORT 


{A444 


124s © 


1246 


SPACE WAR 


21402 


9st 


g14de 
21493 
21400 
21405 


21426 
BLiaalr 
2i41@ 
214% 
@isie 
Zi4i3 
91414 
“21415 
Zi4 ts 
Jit? 
2ises 


—6BL4S 


Yisee 
21423 
21424 
Zides 


P1426. 


A2i4e7 
81432 
D1 434 
Zis3e 
21433 
214434 
91435 


1490 


7322 
4bTe 


- 6329 


i@ee 
76452 
3236 


1ii4 
3%12 
i@ei 
5@1i 
1412 
3246 
1419 
3247 
ive? 
7642 
S673 


1442 
3258 
1442 
3051 
Gury 
eat 
7412 
5236 


125@ . 


3246 
1753 
3247 
5221 


~S NBN ™~A MH NOS 


FILDIS, 


FILONE, 
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PALBeV7 4/41/71 


HERE 10 DISPLAY THE TwO SHIPS, CHECK FIRST FOR COLLISION 
AND THEN SET THE TWO PAIRS OF COORDENATES FOR THE END 
POINTS AND CALL THE "VECTOR GENERATOR” TO ORAW THE DOTS 
IN BETWEEN, WHEN THE COUNT OVERFLOWS DG THE SAME FOR 
NUMBER TWO, THEN EXIT TO OTSPLAY ALL THE PROJECTILES. 


# LAG 

CLA CLL /ALL SET TO GO 

JMS I COLIDE /TEST FOR COLLISION FIRST 

0sB 1 — yy /IF NO COLLISION. 

TAD ONEFLG -/SKIP NUMBER ONE IF NOT IN NORMAL. 
SZA CLA /SPACE 

IMP TwODIS 

TAD ONEFIL /SET UP POINTERS TO OISPLAY FILE 
NCA AUTCLYH /FOR NUMBER ONE 

TAQ ONECNT /ALONG WITH VECTOR COUNT 

DCA AUTOL! : 

TAD I AUTOI /SET QUT THE FIRST POINT PAIR 
DCA XONEDS 

TAD I AUTOID 

DCA YONENS 7 | 
TAD ONEOUT JNORMAL DISPLAY OR EXPLOSION? 
SZA CLA 

JMP IT IGNEEX /GO ELSE WHERE FOR EXPLOSION 
TAD I AUTOIG /STEP TO NEXT PAIR OF POINTS 
DCA_XTWODS /SET X AND Y TO NEW POINT — 
TAD I AUTOS 

OCA ¥TWOOS 

JMS I VECTOR JCALL THE DOT DRAWING MACHINE 
15Z AUTOLL 7 

SKP /COUNT 

JMP TwOOIS /DO NUMBER TWO ON OVERFLOW 
TAD XTWOODS /SWAP POINTS FOR NEXT PAIR 
OCA XONEDS | 

TAD YTWODS /THE GENERATOR ORAWS FROM ONE 
OCA YONEDS /TOWARDS TWO 

IMP FILONE : 


po SS Space wan. - PALSaV7 i/41/71 PAGE 21 | fe 


Seo 
1047 
1246 Binns 
1239 21436 1235 TWOOTS, TAD TWOFLG , MERE TO OO NUMBER TNO | : | ean 
pesn SRiees eee — SZaA CLA : /BUT NOT IF IN MYPER SPACE 3 | | 
1751 @id4e 9664 JMP I IPRODS 7 | 
1252 : 3 | 
1253 ai443 4145 , TAD JTWOFTIL /SET UP FILE POINTER AS IN ONE 
1056 1442 3010 NCA AUTOS : ‘ie 
1235 Zi443 1934 TAD TwOCNT /ANO THE COUNT 
12736 21944 3241 DCA ALTOLIL | 7 
1057 Y1{4e3 {LB : TAD I AUTOI@ /I SUPPOSE THIS COULD BE A SUBROUTINE ToOOQ 
1258 Bi4d6 3046 OCA XONEOS 
1259 21447 1412 | TAD I AUTOLO 
1262 2145¢ 3047 DCA YONEOS 7 ‘i 
1061 @145t 1933 TAD TwOOUT | JIS IT EXPLODING? 
{Zhe A1452- 7649... S2k° CLA 
{263 21453 S674 IMP JT ITWOEX JYES, HOW EXCITING 
{26 
Lae5 24454 441@ TWOLOP, TAD IT AUTOIe © JNO HOW DULL, STICK IN NEXT PAIR OF 
1245 21455 3252 pca xTwoos /POINTS 
1247 2iase 1412 TAD I AUTOIO | +e | 
: 17248 21357 32514 DCA YTWODS | JAND CALL THE VECTOR SEQUENCE 
{265 21453 447) JMS I VECTOR 7 | | . 
Ie. VL4ebt. 2614 ISZ AuTott 
Var Atub6e $265 IMP +53 
{272 ' 
1273 21663. 5564 J S6P Lo et | /WHEN COUNT OVERFLOWS GO ON TO 
1a7a 21466 1620 IPRODS, FROOIS © . : 700 THE PROJECTILE THING 
Le7s | 7 
tats ZishS 1252 TAD xTwOOS JOTHERWISE SWAP ON TO THE NEXT PAIR 
1er7 Zi456 3046 OCA XONEDS SOF POINTS 
1278 21467 1251 TAD YTWODS 
1679 Gia72 3047 PCA YONEDS 
1242 21471 5254 | JmP TwOLOP 
1081 | 
1282 @1472 2074 COLIDE, COLLID 
1283 @1473 2271 IONEEX, ONEEXP 
1G8s 1474 2310 ITWORX, TWOEXP 
{285 7 


: “Nes 


/ SPACE WAR PALGeV? 1/11/71 PAGE ee 
1266 wf 
1237 / | : ~ 
1238 / THIS IS THE SO CALLED "VECTOR GENERATOR" WHICH DRAWS A ee 
1z7se / SERIES OF DOTS FROM XONEDS,YONEDS TO XTWOOS,YTWODS. | , , Seas ee ee 
1e9? / THE COORDINATE COMPONENTS ARE DIVIDED INTO FOURTHS AND | 
12914 / FOUR DOTS DRAWN ON THE SCOPE SCREEN, NOTE THAT NO ODOT 
1e9e / 1S DRAWN AT XONEDS,YONEDS, THIS 18 COMPENSATED FOR FLSEWHERE. 
1293 / 
1294 
1298 . | : 
1296 21475 a@9@ ODISPLYs @ JENTER TO DRAW A FOUR POINT VECTOR 
1297 24476 1246 TAD XONEDS /FROM XONEDS,YONEOS 
1298 ¢€14877 Tada) CIA | /T9O xTWODS, YTWODS | 3 
4999 22522. 1852 TAD XTWOOS /DIVIDE COORDINATE OIFERENCES INTO |, 
1iZe 29521. .435% JMS DISHFT — /PFOURTHS 
LL Ah 214522 3252 DCA DIXTEM —7AND STORE INCREMENT 
(t2e 6 21385. 3). 087 TAD YONEOS 
1123 21528 T7aAai CIA 
1(te so 21585. --1051 TAN YTWOOS 
Pt276..° SiS26. 8455 JMS DISHFT 
eee SESe7 -3e55 DCA DIYTEM | 
cere 2TSi ~ 1iSe TAD Ma /FOR FOUR DOTS 
#1128 1514 3254 NCA DISCNT | 
1129 
se42 2t3t2 1246 ODISLOP, TAD XONEDS JADD INCREMENT TO CURRENT X AND Y 
24 21583 .195e2 TAD DIXTE™ 
1142 cisiv 3246 OCA XONEDS JNOTE THAT THIS ROUTINE DESTROYS 
iia et eao Leas TAD YONEUS /XONEOS AND YONEDS 
tidy Stsis 1 eSs. TaD OLYTEM 
rig 24517. 20a? PCA YONEDS 
otis. 2t$e2°° 1346 TAD XONEDS 
shir. e1Se2l. Tale RTR ~~ - /JDIVIDE BY 8 TO FIT SCREEN SIZE 
1168  eise2 7210 RAR 
CTTITT 71523 6385 sy em Oe | Oe eaeiar ats /SET X VALUE 
fje2 ~¢2528 Tee CLA 
1123 21525 1047 TAD YONEDS- /Q0 THE SAME FOR Y 
1122 ¢1526 72le RTR 3 | 
S323. -: 24927... 7818 RAR 
Ciies} 21539 6317 eye. oyL ole = /AT LAST SOMETHING TO SEE!! 
Ties: 21531 7eae aa 
ti26 “ @1832 2n54 ISZ DISCNT /DONE YET? 
117 21933 . Sse JMP OISLOP /NOPE 
4428 215934 Sh75 JMP I OLSPLY iy Tur 
a 5. Sees - 
$432 
1131 21535 @20¢ OISHFT, 9 JA GENERALIZED SHIFT ROUTINE CALLED 
1i3e zis36e 7102 Chil /FROM EVERYWHERE TO DIVIDE THE 
1435 2ySS7 Ste SPA VAC BY FOUR WITH AN ASR RIGHT 
11346 Zids4d 7921 Chui TAC /NOTE THAT NEGATIVE NUMBERS ARE 
Lis3 Ziss1 7e1e RAR /ROUNDED UPWARDS (TOWARD ZERO) 
fi 8h. Bisse TIES CLL /TO MAKE IT COME OUT RIGHT 
1137 24533 7512 SPA 
1136 @15446 7del CML TAC. /EVEN SQ THERE ARE SOME ROUNDING ERRORS 
1139 @1545 7812 RAR /SOMEWHERE. SO MUCH FOR 12 BIT MACHINES 
1142 @1546 5735 JMP YT OISHFT 
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SPACE WAR 


JL ORO 
21604 
Ai bA2 
A16M3 


wL1684 
21635 
21LSEC04 
eiod/ 
AL61¢ 
ALoLt 
21612 
21613 
Zisjpa 
Q1VS15 
¢ietle 
Viel? 
21Loe2d 
Yibsel 
21622 
21625 
Ylbeu 
71625 
21626 


Cloe7 
Vj{os2 
Gilo3i 
Vie3e 
Aio033 
d1'634 
91635 
Yib36 
21637 
diosa 
A144 4 
Z2io4e 
Z1o43 
?io4a 
21645 
AL546 


1422 


7300 
Le7ve 
rake 
6326 


1513 
7452 
S242 
7291 


| Baie 


eiis 
isis 
ails 
1313 
ao13 
Laas 
3118 
etis 
1513 
eft3 
Laie 
ao435 
1513 
3411 


1112 
7@1e 
7Q19 
63203 
T2AG 
eS ee 
73l1e 
7212 
h317 
7200 


4674 


2G 
1:15 
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764 
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HERE TG DISPLAY ALL THE PROJECTILES AND TEST FOR HITS, | 
TME PROJECTILE DISPLAY FILE IS SEARCHED FOR PROJECTILES WITH | | : ie 
NON@ZERG COUNTS AND WHEN ONE 2S FOUND TRE POSITION IS 

UPDATED SY THE VELOCITY, THE POINT DISPLAYED ANDO TESTED FOR 


Loety. 

#1689 

Cue: GLE / BEGIN OISPLAY OF THE PROJECTILES 
TAD BUFST. /POINT TO BEGINNING OF OISPLAY FILE 
OCA BUFTMP a 
0s8 2 ™ /SET EXTRA BRIGHT FOR SINGLE POINTS 
TAD I BUFTMP /PICK UP NEXT COUNT 

SNA 

JMP EXPIRE /THIS ONE IS DEAD » GO TO THE NEXT 
IAC 7 /INCREMENT COUNT AND REPLACE 


OCA J] BUFTMP 
ISZ BUFTMP 
TAD J] BUFTMP 
I8Z BUFTMP 
TAD I BSUPTMP 
OCA I] BUFTMP 
TAD I #BuFTMP 
OCA PROX 

I8Z BUFTMP 
TAD I BUFTMP 
I$SZ BUFTMP 
TAD I BUFTMP 
NCA T BUFTMP 


/BUMP POINTER TO X VELOCITY 


/THEN TO XPOQSITION AND UPDATE X POSITION 
AWITH THE VELOCITY WHICH IS CONSTANT 


“AND STORE X POSITION FOR DISPLAY AND TEST 
/NOw TO Y POSITION AND VELOCITY 


/SAME LITTLE GAME 


TAG 4% GUFTMP 

DCA PRDY /STORE THE NEW Y VALUE 

TAD PROX /DISPLAY THE POINT WITH 

RTR /THE SAME SHIFT AS FOR THE SHIPS 
RAR /FOR THE SMALL SCREEN 

OxC Ox —— D/L. 

CLA ee 

TAD PROY a 

RTRW / ae ate 

gee ura i tnd 

DYC. DYL_ DIS “"HILY/OYy 7THERE IT 18d] 

Ne eae 

JMS I CHKOUT /TEST FOR A HIT 

ISZ2 BUFTMP /MOVE POINTER ON AND TEST FOR END 
TAD BUFTMP /OF BUFFER | 

TaD BUFLIM 

SZA CLA 

JMP PROLOP /NOT AT END = CONTINUE | 
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SPACE WAR 


21647 
2165 
@1651 
@1652 
Z1~653 
ies 
21,655 
21556 
01657 
2156 


Zibbt 


1194 
7TH4Q 


Shot 


1148 
B3135 
7322 
633 
1Aa7& 
7ZGh 
5264 


eser 
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HERE AT THE END OF -THE PROJECTILE DISPLAY, IF THE GAMOVR 
FLAG IS SET, GO ON TO THE MESSAGE DISPLAY = VICTORY LAP 


SECTION, OTMERWISE PICK UP TRE REMAINING CLOCK COUNT 


TO GIVE THE FANS SOMETHING TO LOO< AT, AND MOVE THE 
ELECTRON BEAM TO A LOWER CORNER, THE COUNT DISPLAYED 

IN THE AC JS THE NUMBER OF 1€@ USEC CLOCK TICKS REMAINING 
WHEN THIS CODE IS REACHED BEFORE THE NEXT UPOATE WOULD 
SEGIN, TURNS OUT THAT ROUGHLY 2/3 OF THE CPU aa he 
OVEN SHOULD ANYONE wANT TO DO ANYTHING VERY FANCY, 


TAD GAMOVR /I1S THIS THE VICTORY LAP OR WHAP? 
SZA CLA | 

JMP T ENOGAM ) /YES, GO TO PUT UP THE MESSAGE 
TAD M4&2G /MOVE THE BEAM OFF. SCREEN 

OYo OI” 

CLA TLL 

ac oi 

TAD INTCNT ; 3 /PICK UP THE COUNT 

C1A aes 

JMP o — towerche 


JOBLOP 
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WAR , PALBeV7 1/13/71 PAGE 25 | i 


1113 EXPIRE, TAD BUFTMP. anak /HERE TO ADVANCE THE BUFFER © | : Se ae 


1146 TAD PS I /POINTER TO THE NEXT PROJECTILE 
3143 DCA BUFTMP /UNLESS THE END 

r$73 TAO BUFTMP | /OF THE BUFFER 

1273 TAD BUFLIM : /IS REACHED 

7640 S2a CLA sé _  #IN WHICH CASE 

5204 GIMP PROLOP | Sar 2 hs ? 

S247 JMP FINISH ef /QUITS 


7501 BUFST, ODISBUF+1@} 
G203 8UFLIM, eOISBUFR175 


~—2@2@0) 0 6CHKOUT, CHECK : e 
Q@00@ RESELL, @ © | /THIS IS CALLED TO SET THE POINTER 
($323 TAD MRES . /CAUTOL6) TO THE NEXT FREE SLOT 

3324 DCA RESCNT /FOR A PROJECTILE LAUNCH, 12 POSSIALE 
i325 RESLOP, TAD RESFNT /MOVE THE POINTER TO THE NEXT SLOT 
+422 TAD P5 — | 
3325 DCA RESPNT 3 ae sa Pe _ | 
1325 TAD RESPNYT ) /RESTE IF AT ENO OF SUFFER : . 
te73 | TAD BUFLIM-& =: : | 
7H4Q | S74. ELa°. 

S341 JMP RESCON 

Le7e2 -... 40 Sur ST 

33e5 : DCA RESPNT 

1725 RESCON, TAD I RESPNT | /FINO A HOLE YET? 

7652 SNA CLA : 

5317 JMP RESFND /YES, SET UP AUTOIL6 

eae TSZ RESCNT : JNO COUNT 

5302 IMP &ESLOP 7 | /AND TRY AGAIN 

7402 HLT ; | /NO HOLES AT ALL? 

7040 RESFND, CHA a. /BACK THE POINTER FOR AUTO INDEXING 
1325 TAN RESPNT ! 

S216 DCA AUTOL6 

5675 JMP J RESEI 


7764 -MRES, 44 
AAZBA RESCNT, @ 
2200 RESPNT, @ 


A720@ SETBUF, @ 


7Q42 CMA | | /TRIS ROUTINE ITS CALLED FROM THE 

tele TAD BUPST - /STARTING SEQUENCE TO INITIALIZE ALL 

3016 DCA ALTOS /THE BUFFER POINTERS AND SQ ON ‘ 
Le7e TAD BUFST : 3 

$415 DCA BUFTMP 

1e7e TAD BUFST 

3325 DCA RESPNT 

igle . TAD BUFST 


33487 DCA SETPNT | 


WAR 


3747 


e347 
1347 
1273 
7642 
5342 
5726 


2022 SETPNT, @ 


SETLOP, OCA 
ISZ 
TAD 
TAD 
SZA 
JMP 
JMP 


PAL&e\V7 


I SETPNT 
SETPNT 
SETPNT 
BUFLIM 
CLA 
SETLOP 

I SETBUF 
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{28s 

{267 . / ; . 

Le&s / THIS HERE NOW THING CHECKS THE COORDINATES OF THE MOST RECENTLY 
1269 J DISPLAYED PROJECTILE AGAINST THOSE OF TRE SHIPS ON TRE SCREEN, 
{2%<¢ 3 Tf wITH A COLLISION LIMIT A HIT i8 RECORDED AND THE LIFE. 
{es} f COUNT OF TRE PROJECTILE ZEROED TO REMOVE IT, <A HIT SHIP 
i2%e / IS SUITARLY FLAGGED 

{2%3 /f 

{ete 

1235 P7ag e202 

1296 7 

1297 Peged VAG CHECK, fA /HERE TO TEST FOR A PROJECTILE HIT 
Leva 22¢21 i@ee TAD ONEFLG /CANT HIT SOMETHING IN HYPERSPACE 
12499 2e7ze2 Tse SZA CLA | si 
1322 227243 Seae JMP CRECKe ing | 

+534 Le @ad iaed TAD ONEQUT | JOR SOMETHING THAT®’S BEEN HIT 

1320 2EA%5 THUD . SzZa CLA 

Lacs 2eezAae S23e IMP CHECKe 

{3cu | 

$325 Z2eVG7? . 11418 © | TAD PROX /JCHECK X COORDINATES OF SHIP ONE 
1326 Aecieg T7Aai CIA | /ANO PROJECTILE 

1327 eedil 1a26 TAD ONEPEX ee /THIS SORT OF THING IS WHY THE | 
1378 ge@te 7519 SPA JCOORDINATES HAVE TO BE MAINTAINED TO fle 
1329 2e¢13 7841 Cla 3 /BITS 

1312 ae2id 1264 TAQ LEMET /CLOSE ENOUGH? 

$333 Zzevi15 7790 “ Sma CLA . | . 
tite meaip See IMP CHECK JIF X ISN® CLOSE ENOUGH THEN NO HIT. 
13135 Zedril 133% | TAD PROY /X viAS CLOSE ENOUGH, HOw ABQUT Y? 
1544. Zeted Te4ai{ CIA 

(3i5 “eae l vel TAD ONEPEY 

isis gevee T9519 SPA 

‘es &, ePZes FAGh | CIA 

13180 ZeV24u eh TAD LIMIT 

1319 gea2z25 7782 SMA CLA’ 

1320 vege S232 JmMP CRECKe /NO HIT 

132} eo 

{ 32 Zecel 11a7 TAD MEXP /DEPOSIT EXPLOSION COUNT IN ONEOUT 
fse3 22230 3229 NCA ONENDUT 7ZALL THAT IS NECESSARY 

{3¢e4 Beesi 4265 JMS CUTGUT /REMOVE PROJECTILE 
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Zeso? 
22064 
22662 
BeZos 


CHECK, 


LIMIT, 


CUTOUT, 


CUTPNT, 


TAQ 
SZA 
IMP 
TAD 
SZA 
JMP 


TAD 
CIA 
TAD 
SPA 
CIA 
TAD 
SMA 


JMP 


TAD 
CIA 
TAQ 
SPA 
CIA 
TAY 
SMA 


JMP 


TAN 
DCA 
JMS 
JMP 


e122 


Ss 


TAO 
TAD 
NCA 


OCA I CUTPNT 
JMP I CUTOUT 


g 


THOPLSG - 
ei} 


1 ChECK | 


TWOOUT 
CLA 
I] CHECK 


PROX 


TWOPREX 


LIMIT 
CLA 
t CREEK 


PROY 


TWOPEY 


LIMIT 
Si Ao - 
T CrECK 


MEXP 

TwOOUT 
CuTQUT 
I CRECK 


Mo 
BUF TMP 
CUTPNT 
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#N0 HIT ON NUMBER ONE, TRY NUMBER TwO 


/BUT NOT IF IN mYPERSPACE 
/OR TF ALREADY HIT 


/CHECK X°S FIRST 


/GET ABSOLUTE VALUE OF QOIFFERENCE 


JANO TEST MAGNITUDE AGAINST PROXIMITY 
/LIMIT 
/NOWHERE NEAR CLOSE 


JNYAH, NYAH 
/TRY THE Y°S 


JABSOLUTE VALUE OF DIFFERENCE 


/CLEAN MISS 


= 


JHIT ON TWO = END FVERYTHING SY SETTING 


/¢TwooUT TO NON@ZERO EXPLOSION COUNT 


/EXIT AFTER DESTOYING PROJECTILE 
/PROXIMITY LIMIT FOR wHAT CONSTITUTES A KIT 
JTHIS ROUTINE ZEROES OUT THE MOST. RECENTLY 


JDISPLAYED PROJECTILE 86Y ZERQEING THE 
/COUNT 


pe yh Ste padi arah es igpens apne seme eS an mrt he ert Ne, RR we ee Te 


PALG=V7 


reece eee OO OEE 
7 " 


peu. SPACE WAR : PALG=V7T i/11/T71 FAGE 2@ es 
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‘a7? / 

1574 / THIS ROUTINE IS CALLED TO TEST FOR A COLLISION BETWEEN THE ‘ 
1372 / Taf SHIPS, THE COORDINATES OF BOTH ARE COMPARED , 8 
1373 ’ AND IFF SUFFICIENTLY CLOSE BOTH ARE DESTROYED BY SETTING 
137s / THEIR EXPLOSION COUNTS NON#ZERO, 

(375 / 

{37% 

L276 a2e7u paaew COLLIO, @ /KERE TO TEST FOR COLLISION 

{37s 22275 levee TAD ONEFLG JNO TEST IF EITHER SHIP IS IN 

4342 22276 7ese $ZA CLA JAYPERSPACE GR EXPLODING 

134! 2e277 5674 JmP ~ COLLIO 

{ae 221%¢8 1@35 TAD TWwOFLG a 
1383 Ze1et T7hag SPA CLA. og 
4 38G geyee SeT4 JMP I COLLID 

BRS 7ein3 Laev TAD ONECUT 

135% Z2t4u Thae SZA CLA 

{37 22475 S674 JMP Y COLLID 

{$34 Peives 1233 TAD TwOGUT 

{BAS a2ta7 7649 S74 Cia | 

1332 22410 S674 gMeP I COLLID 

¢ 135) 

1392 22141 . 1026 TAD CNEPEX /BOTH SHIPS AVAILABLE FOR COLLISION 
139% 22112 7e2a4 CIA JCHECK X COORDINATES FIRST 

1 3Cu 22413 1Q4i : TAD TwOPEX : Z 
1335 Zaii4 - 7512 SPA | /GET ABSOLUTE VALUE OF DIFFERENCE 
1335 c2tiS T7asi CIA 7 : 

1397 22116 1336 | TAD COLLIM /CLOSE ENCUGH? 

1396 .22117 7722 Sma CLA 

1355 g2120 S674 IMP I COLLIN /NOPE, FORGET IT 

{aZ7 

1u2} 22121 1227 | TAD ONEPEY /YES, NOW TRY THE Y COORDINATES 
Lue 22422 7641 Mae ; 

1423 22123 1242 TAD THOPEY 

(a?a get2a 7519 SPA 

1az5 ge2125 77241 CIA /GET MAGNITUDE ONLY 

1326 22126 1336 TAD COLLIM™ 

ur? 22127 7700 SMA CLA /CLOSE ENCUGH? 

1428 221323 S674 JMP I COLLID 

1429 g2131 1107 TAN MEXP /YES, SET BOTH EXPLOSION COUNTS 
1ajr Yveis2 382 NCA ONEOUT Bat 

1o41 ge133 4107 TAO MEXP 

{ale 2e43u 3233 NCA TwOOUT 

1413 $2135 Sava gmp J COLLID 


{415 22136 7520 COLLIM, =390 


i a cereal oe em alae: a ; ES ay 
—_ oo S| > ae als. Ne ee ee er ee a eee ee eT ee eee eee Gt Te ene are a pound a : 2 yeas 

r ines ~ * sige bh Sato Be nN Ne St ER RE. BERNE A A TERIOR LG LEI AS BRR eheabin BO ee os Se . teen ee, cae Se PPR ee Wee igre 

<a teri ao rt Bi BOE SS a enc an ig nt Bite ONES NG lg BN sa, Rah ets eA tah 


~ 


aoe ga 
49 #4 OD 


LF s* n> 


- +> - ae > 
ee ec. ££ Ss & 
Az hs TH) HS eS 


creek & £& ce & 
Vb iw ia TM AD TU he MS 


a= ff £& 


ick Rent Seek. Se a i a Ge de HO RPT 
. tal iat to led Ut Lat ow 


17 Ve ia 


3 ee 2 -9-F 
rer &£& & FS 


é> 


&g & & 
= ££ Ff 
ws & tatty + ft -o ze 


oF te ee > ee ee EO 
Ree bree & 


monn k & fe Fe 


2 pe Pe Pe DO 


wee Hw ~~ OH UTS tt 


a. 


SPACE WAR 


o22a8 
22201 


22282. 


z2eeas 
wees 


ga2n5 


Sy 
it 


0° 


en 


G5 is) MM 
Mw fy Me Ww ie 
ma fu Re fu Pe Ae 
ee i 
wi ie 3 


gm) ©: 


~~ OUI 


wywrmye cy Mr N 
mRimeme oro © 


Sots FAs TD ee 


Qseoonagveese es SS 
Din te & 


™~ Tj T! MN SHH ™ 


HYPSET, 


HYPRET, 


TRIS ROUTINE I5 


PAL BVT 


HYPERSPACE, 


ON ENTRY 


1/11/74 


CALLED 


PAGE 29 


TO SET ONE OF THE TWO SHIPS INTO 
TRE ACael FOR 
THE LOCATION CLOCK IS USED FOR A RANDOM 
ADDRESS POINTER FROM WHICH WILL 


SHIP #4, @ FOR SHIP 
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VARIOUS PARAMETERS FOR REENTRY «4 
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JANGLE OR ORIENTATION ON REENTRY 
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eaen VEESET, @ | | ‘  7RERE TO LIMIT VELOCITY COMPONENTS 
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JHERE TO DISPLAY SHIP NUMBER TWO 
/AS AN EXPLOSION, 8ASH IT AROUND 


/TREN OISPLAY IT 
/DONE WITH EXPLOSION? 
/NO, NORMAL RETURN 


/YES, SEND INTO PSEUDO HYPER SPACE 


/DISABLE NORMAL RETURN FROM HYPERSPACE 
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/CHECK NUMBER ONE 


/STILL ALIVE AND WELL? 
/NO, TIE GAME 
/YES, CONTINUE ON 
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1538 | 3 et 
1539 | / : 3 
yaar / HERE TO DISPLAY THE FIGURE POINTED TO 8Y AUTOI® AS 
1544 f AN EXPLOSION, THIS WORKS THE SAME WAY AS THE NORMAL | : oe 
{S42 f DISPLAY ROUTINE EXCEPT THAT THE COORDINATE INCREMENTS | 
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VEELIM 13 THE SCALING ROUTINE FOR VELOCITY COMPONENTS, 


TO 


~1u2, 


Tmie 18 NE 


CES 


Nae Soo Nl 


THE COMPUNENTS ARE SCALED TO REMAIN IN THE RANGE 14¢@ 
SA4ARY TO AVOTO ASTRONOMICAL SPPED 


BUILOUP ON THE SMALL SCREEN, UNFORTUNATELY THE X AND Y 
COMPONENTS ARE SCALED SEPARATELY WHICH GIVES SLIGHT BUT 
NOTICABLE DISTORTIONS IN DIAGONAL FLIGHT PATHS, IN THE 
NORMAL HEAT OF THE BATTLE NO ONE WILL REALLY NOTICE, 
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/NO 
/YES SET TO MAX : ; 


/IY WAS IN RANGE ALL ALONG 


SHERE TO ADJUST THE ANGLE TO A RANGE 
/d-SS2 OR O@m360 DEGREES, THIS IS 
/NECESSARY TO INSURE THAT PUSHDOWN OVERFLOW 
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/ROUTINES, THIS SIMPLY TAKES THE AC 
/MODULO 360 AND EXITS 


/FOLLOW IT THROUGH AND SEE IF IT DOESN*T 
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ONE OF THESE ROUTINE IS ENTERED WHEN A WINNER IS DECLARED, 
THE ADDRESS OF THE VICTORY MESSAGE IS PLACED IN MESS AND 
THE GAMCVR FLAG SET TO CAUSE A BRANCH TO JOBLOP WHEN THE 
DISPLAY CYCLE IS COMPLETED, THE ROUTINE WILL THEN DISPLAY 
THE APPROPRIATE MESSAGE OVER THE RBEMAINING SHIPS IF 

ANY UNTIL THE KEYBOARD IS MOLESTED OR THE CLOCK RUNS OUT 
ANT) THE NEXT DISPLAY UPDATE CYCLE IS SET, AT ANY RATE. THE 
PROGRAM WILL REACH HERE ONLY wHEN SOMEONE HAS BITTEN THE 
INTERGALACTIC OUST, 
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A /THIS IS CALLED WHEN TWOFIN IS SET 
TAD MES] “AND ONE FIN IS NOT, SET ONE TO VICTOR 
OCA MESS /AND SET GAMOVR FLAG | 
IAC 
OCA GAMOVR , 
JMP JT ONEWIN /THEN RETURN TO UPDATE CYCLE 
"7 fTHIS IS CALLED WHEN ONEFIN IS SET 
TAD MES2 /AND TWO FIN IS NOT | 
NCA MESS /SET ALSO GAMOVR 
Tac 


DCA GAMOVR , 7 | . ‘ 
JMP J TwOWIN : 


/GET HERE WHEN BOTH ONEFIN AND TWOFIN 


Tad MESa 
NCA MESS faRE SET . 
TAC 


NCA GAMOVR /NOBODY EVER REALLY WINDS 
/UP THE WINNER IN THESE THINGS 


DSB i | oi /THIS IS ENTERED FROM FINISH WHEN 


TAD MESY /GAMOVR IS SET AND SERVES TO OISPLAY 
JMS I MESOUT /THE VICTORY MESSAGE ON THE SCREEN 

TAD MESS /USING THE CHARACTER GENERATOR SOMEWHAT 
JMS I MESOUT /FURTHER ON UNTIL THE GAME IS RESTARTED 
TAD MESS /OR UNTIL THE INTERRUPT COUNT OVERFLOWS 
JMS IT MESOUT AND THE UPDATE CYCLE IS RESTARTED 

TAM MESS 
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THE FOLLOWING ARE THE SINE AND COSINE ROUTINES CUSTOMIZED 
FOR TRIS PROGKAM FROM ANOTHER IT WORKED ON, CALL EITHER 
SINE GR COSINE WITH ANGLE IN DEGREES IN AC, THE ARGUEMENT 
IS REDUCED THROUGH RECURSION UNTIL BETWEEN 8-89 DEGREES 

AND THEN A TABLE LOOKYP DONE TO OBTAIN THE VALUE, IT TAKES 
UP aA FAIR AMOUNT OF SPACE BUT IT WORKS JUST FASTER 

THAN SHEEP, THE COSINE CALL JUST TRANSFORMS THE ARGUEMENT 
THROUGH SOME TRIGONOMETRIC GARBAGE AND CALLS THE SINE 
ROUTINE, NOTE THAT CALLING EITHER ROUTINE WITH TOO 

LARGE AN ARGUEMENT WILL CAUSE FUSROOWN OVERFLOW AND THEN 
ALL HELL wILL BREAK LOOSE, THE ORIGINAL ROUTINE FROM WHICH 
THIS wAS STOLEN HAD FULL WORD PRECISION, 
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1744 26452 A420 SINARG, @ .- 
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C674 


a ea eS ee eS ee eee eT 


WAR 
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714¢ 
7542 
7264 
3271 
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7450 
5255 
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7FLS4 
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7719 
Sart 
L27e 
7432 
i273 
71419 
3272 
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S237 
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7430 
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/TRIS IS STANDARD SINGLE PRECISION 
/MULTIPLY ROUTINE WHICH WAS ONCE 
SUSEas 2°VE LEP LEOIN SINCE 

/THERE IS LOTS OF CORE LEFT OVER AND 
/MAYBLE SOMEDAY I*LL NEED IT TO PUT 
‘IN A SUN OR SOMETHING, THIS IS THE 


/STANDARD DEC SUBROUTINE WITH DIFFERENT 


/LABELS 


sh clas bt A chemin eee Saal eh wc ss las hci Mb aces ata gta. “ees Peg Sgt Vine i bile iad = Aprerinsy Wie ahh tae sce clone tainted a epiaptpnants Nini a ton Shc taiame Asal npitigiiane a laabaslanatin: eile pried eet i AES el ETO CN TE MAE A EEE i Bi ay ee hae te ng CUT ES RNAS AA ERIN GAY 5A AE PAB A aay SA MN YE RE SARE EA EIEN GE GION LIC RS 


Lote, cer enene eater ti mmN ee Ne ENIAC EE NA tN OF ti ENTS NE A A RI Ct 


Oo s 


SIS 


& 


“ny 
oe 


AVA V8 QE 2 & © 


} 


o MR WM A hy Ms AD 


Mi 


SOmon FU la Rye 8 


rest 
iw) 


SI VS fy 


cack | 


SPACE 


37228 
27034 
7232 
V7 G3 
S7H24 
Q7225 
ZIiG2Ze 
QTOAT 
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27Ote 
B7213 
@7314 
O7O15 


27216 
Bro 
27CEB 
OTe! 
a7 ¢éee2 
G7e23 
¢7224 
O7¢e5 
C7 O26 
AISA? 
OFe3e 
27O3ik 
Z7?ase 
27933 
C7e@a4 
87235 
A7E36 
27237 
A YSA 
G7E4)4 
27262 
Z7Zas 
27244 
“vigys 
273246 
QTPAAT 
27259 
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27053 
g7¢54 
Q27e55 
@7CS6 
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C7 26D 


WAR 


7222 


G2AA0 
3330 
173@ 
7012 
7@1e2 
70he 
4216 
7418 
3622 
1730 
2339 
426 
3282 
5622 


CBSO 
QISG 
7494 
1336 
Jaa 
724 
34352 
2733 
2335 
7452 
S274 
seer 
1333 
sao tk 
1323 
sae6 
132e 
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1324 
3322 
1327 


71904 
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7420 
5255 
1326 
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CHARS, 


CHAR,, 


XPLOT, 


YPLOT, 


CNTINU, 


0 

DCA 
TAD 
RTR 
RTR 
RTR 
JMS 
SKP 
JMP 
TAD 


SENTRY TO PLOT CHARACTER STRING 


ADOR /STGRE STRING ADDRESS 
I ADDR, /FETCH DOUBLE CHARACTER 
ASHIFT 

/ «FOR FIRST 

/ CHARACTER 
CHAR /PLOT CHARACTER 

JNORMAL RETURN == SKIP 
I CRARS TERMINATION RETURN @== EXIT 4 
IT ADDR “RECALL DOUBLE CRARACTER 
ADDR /AQVANCE STRING ADDRESS 
CHAR /PLOT CHARACTER 
CrARSee2 JNORMAL RETURN w= REPEAT 
I CRARS /TERMINATION RETURN w= EXIT 


JZENTRY TO PLOT SINGLE CHARACTER 
K77 /MASK OUT UPPER BITS | | 3 : 
RAL /SMULTIPLY CODE BY TWO . . 
TASLE 7ZADO TASLE BASE ADDRESS 
POINT /CONSTRUCT POINTER TO 24=BIT CODE 
/JINITIALIZE COUNTER FOR 
COUNTe / TWO PLOT WORDS 
1 POINT FETCH FIRST PLOT WORD 
POINT /INCREMENT POINTER FOR NEXT ONE 
/SKIP IF NOT SPECIAL CHARACTER 


SPCHAR /ELSE GO PROCESS IT 

CURPLT /SAVE CURRENT PLOT BITS 

KM6 /INITIALIZE 6=BIT 

COUNTS / COUNTER : é; 
‘YVALUE © /SRESET Y TEMPORARY , 

YTEMP / VALUE FOR CHARACTER . | oe 

XVALUE /OUTPUT CURRENT Fi eae 0 | X Prufler (ure DIX L053) 
Bei ¥ X=VALUE TO NT enn, | 4g 

XINCR / INCREMENT 

XVALUE / ABSCISSA 

CURPLT /RECALL CURRENT PLOT Ere Px 

RAL /GET NEXT BIT 

CURPLT 


(SAVE REMAINING PLOT 178 
/SKIP IF POINT TO PLOT 
CNTING /ELSE JUMP AHEAD. 

YTEMP /OUTPUT CURRENT 

DYL DIS ——m / Yo VALUE TORT 
CLL /CLEAR AC 

CURPLT /RECALL CURRENT PLOT BITS 
CLA /SKIP IF POINTS REMAINING 


UAg Dik gteosere cpeuist > 


WROEND /ELSE WORD IS FINISHED poe 
YTEMP /INCREMENT TEMPORARY : 
YINCR / YeVALUE FOR NEXT 

YTERP - / CHARACTER STEP 

COUNTS /SKIP IF 6 BITS PLOTTED 


pepe 


02k 
akan 
2029 


SPACE WAR ES RL eee 


_@7061 Seq2:-..- <> gmp ae 
7262 S232 IMP XPLOT’ 


‘@7063 2332 wWRDEND, ISZ2 COUNT2 _ 


A/LA/TL = PAGE G01 


7ELSE PLOT NEXT ONE 
/GO UPDATE KeVALUE | 


‘/SKIP IF ANOTHER BIT WORD” 


\ 


Se i a 


SPACE WAR 


Q7ETS 


Q7264 5272 
Q7v65 1735 
G7766 7442 
27267 S23i 
e7270 i322 
G7¢e7i 1424 
O7O?e - 332¢ 
Q7973 5616 
Q7G74 1735 


S432 


JMP 
TAD 
SZA 
JMP 
TAD 
TAD 
DCA 
IMP 


TAD 
DCA 
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eit /ELSE EXIT 

1 POINT /FETCH SECOND AIT WORD 
/SKIP IF NO PLOT POINTS 

XPLOTe4 7VELSE GO PLOT THEM 

XVALUE /INCREMENT ABSCISSA 

XINCR / FOR SPACE BETWEEN 

XVALUE / SYMBOLS 

I CRAR /EXIT FROM CHAR 

1 POINT /FETCH TRANSFER VECTOR 

POINT | “STORE AS INDIRECT ADDRESS 


f SPACE WAR - PALBeV7 L/11/71 PAGE 42 
PAS) 27G76 5735 JMP J POINT /GO TO APPROPRIATE ROUTINE 
ease 07077 13246 SPACE, TAD XINCR /FETCH BASIC ABSCISSA INCREMENT 
e@as A71{AA 7186 | CLL RTL /MULTIPLY BY FOUR AND | 
P24 4 O7141 Sev JMP EXIT Pea GO CREATE SPACE 
PSS Q7iv%e@ 1327 CRLF,- TAD INITX /"CARRIAGE RETURN" RESETS X 
eYab 27483 3322 DCA XVALUE / TO ITS ORIGINAL VALUE 
eQa? 7105 1325 LF» TAD YINCR /"LINE FEED" 
2048 07405 71306 CLL RTL DECREMENTS THE 
eBay 27196 7145 Che CIA RAL / YeVALUE BY 
2vse V?iAT? $323 TAD YVALUE / EIGHT SCALE 
2954 @7112@ 3323 DCA YVALUE / STEPS 
2a5e2 Q@7141 S646 JMP 7] CHAR /EXIT FROM CHAR 
eas 7412 .3ee@ RESET, TAD INITX /"RESET" RESETS 
2456 071143. 3322 DCA XVALUE a X¥ AND ¥ TO 
2055 C7114 32) | JAD INITY /  JHETR ORIGINAL | 
ens 27115 5312 JMP RESET#2 / VALUES 
eeS7 G7Ti16 2216 TERM, I18Z CRKAR /TERMINATE CODE CAUSES 
2058. @7117 $616 JMP J CHAR / EXIT TO Pea 
e359 / 
206e g?i2ea @@20 INITX, 2 — ofINITIAL KX VALUE 
2aoi  w7121 @327 INITY, 3e7- /ZINITIAL YeVALUE 
: evbe @7?122 A080 XVALUE, /CURRENT X*VALUE 

é 2063 C7123 @6@0 YVALUE, @ /CURRENT YrVALUE 
egea C7124 @29@6 XINCR, 6 /BASIC X INCREMENT VALUE 
2085 27125 2@12 YINCR, 12 /BASIC Y INCREMENT VALUE 


2854 A7T126 O2@0@ YTEMP, 2 /TEMPORARY YeVALUE 

ace? 27127 S200 CURPLT, @ /CURRENT PLOT BITS 

2068 27138 @@@0 ADOR, asad A/CURRENT STRING ADDRESS 
2269 27431 @280 COUNTE, & /6=BIT COUNTER 

2n72 7132 @200 COUNTe. @ /2=wORD COUNTER 

eg7yt ETiSS .fF72 KMS, ade) /CONSTANT FOR COUNTS 
aate 27134 @OB77 K77, be /CHARACTER CODE MASK 
2o73 07135 @202 POINT, @ STABLE) POINTER 

2a74 / 


: Recenter rr QE EEE ee ee eee La ete ey eC Ree a semen 
e hig, 
og i * 
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212 @7223 6151 2 S 1-2 ; 
iS} 27224 4543 M543 , : : | 
 2t3e 27e2a5 7744 7744 , 4 ; | | | sore 
2133 27226 ane @ | ; : | 7 | 
ei, $s Z?e2e7 Read 204 / \ 
ars C7?e3o [R22 — 4 R22. 
e136 C723, 4i77 Gi77 f-3 
e137 C7232 84a m5 
2438 27233 436 | 43s a 
2139 27234 A492 3 av 
2442 27235 aage g /SPECIAL CHARACTER (37) 
24 G1 27236 7iie RESET /RESET | 
e{ae 27237 asa g /SPECTAL CHARACTER (4¢) 
2163 Q7248 7oaT7T . SPACE /SPACE - 
Piad Z72eat $648 S422 4 ji } 7 
21,a5 C7242 Aese % 
PL as v?eas 0303 483 / * 
PYasy. g'eua A2AB q 
2168 @7245 - 4477 L477 / #8 
P19 eTe4e 7714. W148 
e152 7247 2277 2277 / MARKER 
2153 27250 2202 2292 ATS 
e152 2?254 2343. 2313 ".f & 3 > 
é 2453 27252 6u4be2 646e 
2154 27253 7777 7777 / BLOCK 
2455 27254 7777 1777 
2156 27255 9323 «BOR ne 
e157 27256 a0ae o) 
2498 97257 3644 364) Fe 
2159 27268 aAQAa2 an 
2162 27264 4436 W136 oe 
2161 27262 9282 g 
2462 27263 Unag —4nag / UNDERSCORE (52) 
 @i&s Z2Teb4 “A&kY G24 ' 
2164 27265 1434 12348 / + 
2165 27266 1422 1022 
21h6 27267 B2C9 ? /SPECIAL CHARACTER (54) 
2167 Z7e7@ 7104 LF . /LINE FEEO 7 
2468 27271 121 131¢2 f- 
2169 Z7272 1488 1222 
P17? 27273 490 4gne Pog 
PA74 C7274 AgaL Q 
217e 27275 e260 eQid ae 
24173 27276 Bate ave 
2174 27277 3Hu4 B64] / @ 
eirs 27320 41436 4136 
24746 27321 4442 (44a? f 3 
24377. @7382 7748 7742 
217s G73%3 426} CT-4-) ae / 2 
P179 C7394 Sige 5146 
ayaa 27325 2445 2145 me 
P18) 27336 S521 5321 
P12 B7307 YFia {712 / 4 
2183 D7310 ar? 1277 


2484. 27344 8745 — . 8745 aa. 
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073153 
w7S3i4 
27315 
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Q7317 


WAR 


4534 
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Rit 
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5522 
87aS 
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2400 
RAO 
AAD 
7422 
i224 
GeAg 
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4224 
1479 
2255 
C328 
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- MERE FOLLOW THE PACKED ASCII TEXTS FOR THE VARIOUS 

/ VICTORY MESSAGES, PERSONS ADVENTEROUS TO FIND THIS MIGH CARE 
f TO TOGGLE IN SOME CUTE LITTLE MESSAGES OF THEIR OWN, 

, 


g7337 3773 MESSS, 3773 
27349 7342 MESS5S, 7342 


G?544 4940 4GuQ 

A7rSae2 aAag 4248 

27343 4gag Con 

27544 4746 MESSY, 1716 few : - 
C7445 3502 ) esea | | 


u7346 2427 MESS2, 2427 


g7347 1700 1700 
67350 2711 MESS3, a7t2 pws? 7’, 
27S51° 1623 1623 

27352 4160 4100 


27353 4617  MESS4, 1617 


27354 e217 @217 
27355 2431 Ca3h 
27356 8280 — — «BAAG 


SPACE WAR 


7420 
Q7499 a2ee 
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#7400 — 
DISBUF, @ eo 


THE DISPLAY BUFFERS BEGIN HERE AND EXTEND UP SOMEWHERE TO 
ARQUND fats OR SO, 
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2232 


eas oe ais ad ee ee And wns pA IME o's 
ACCFLG 2125 ENDGAM 1664 MESt 2582 ONETHE @22% take : eae Tbe ie a es 
—ACCPER 2126 EXIT 7078 MES2 2543 © ONEUP Q492 | ae ee eee | 
ADOR T7132 EXPOIS 24629 MES3 2564 ONEVEL @472 7 | | 
AUTOI@ w3ld EXPIRE {662 MES4 2545 ONEVEX Qv24 
AUTOLL 2@11 EXPLOP 2417 MES5 2546 ONEVEY 8925 
AUTOL2 2212 FILOIS 1498 ME XP C107 ONEWIN 2507 
AUTOI3 2@i3 PILONE i424 MRYP 2257 ONEWN @556 
AUTOL4 @214 FINISH 1647 MRES 1723 ONFGi {1156 
AUTOLS 22145 FINITO 2542 MULCMP 6661 ONFG2 1155 
AUTOL6 2316 FLAML. 1852 MULMPZ 6657 OP 14 2752 
AUTDLT O@17 FLAM2 1263 MULMP4 667} OP3e@2 9554 
BUFLIM 1673 GAMOVR Aisa MULMP2 6673 OTEN 6344 
BUFSET #302 MMi77? e272 MULMPS 6674 OUTLOC 2256 
BUFST 1472 HYPER S276 MULMP4 6637 POINT 7435 
RUFTMP 0113 HYPRET 2245 MULMP5 6672 POSCAL 6723 
CALCOS 4266 MYPSET PAae MULPSN 6653 PRODIS 1620 
CaLeos zaze IFILOS 1375 MULT C267 PROLIF Q@112 
CALSIN 2363 INCONE 2333 MULTHR 6672 PROLOP 1604 
Ror 62752 INCTWO 2334 MULTI 6621 PROX 211a 
CHAR BL6 INITX. 7124 M12 2134 PROQY oe © oe 
CHARS 7028 INIt¥. £24 Mi 24135 P1@ Oii7 
CHECK 2822 INTACC 2346 M220 2137 P12@ Q128 
CHECK2 2232 INTBUS 326 M264 136 P132 2125 
CHKDOUT 1674 INTCNT 2274 Ma A132 Pi7 Z12e 
CLOCK. @875 INTGLH 7356 MUQag 2149 P22 Jie} 
CLXK 6352 INTELNK 2347 M550 Gi4t Pega 2126 
CNTINU 7@55 INTRET 2342 Mo 2133 — P37 A122 
TOOST 2255 INTSER 2313 NOWIN 2523 P3777 21431 
COLDOST 6251 INTTEM 23246 NOWPRO 2330 P4Q . 123 
COLIDE 147e INTWRO @G73 NOWTWO 2327 Page 21427 
COLLID e874 —TONEEX 1473 OOT! unad P5 Biie 
COLLIM 2136 IONEST ¥752 OvTe2 G2v5 P55@ A13@ 
COSINE @@h6 TPRODS 1464 O0TS CA2S6 RESCNT {1724 
COSINI 6463 ISHFT @1@2 OM14 0753 RESCON 1711 
COUNT2 7132 LTWOEX La74 OM3@@ 2555 RESET Tile 
COUNTS 7131 ITwWOST 1153 ONECNT 2@21 RESET1 @193 
CRF 6°72 ITWOUP 6552 ONECON 1121 RESE1 1675 
CRLF 7i@e IXPDIS 2332 ONECOS @@31 RESFND 1747 
CURPLT 7127 JOBLOP 2527 ONEDIF 2251 RESLOP 1700 
Cutout 2265 KM6 7133 ONEEXP 2271 RESPNT 1725 
CUTPNT 2a73 -KT7T 7134 ONEFIG Q437 RESTRT @206 
HIS 6344 LF 71904 ONEFIL 0114 RSHIFT 2072 
DISBUF 7422 LFTHAF 2325 ONEFIN @232 RTNFLG 2253 
HISCNT @254 LIMIT 2¢64 ONEFLG Q@ee2 RYTHAF @36 
DISHFT 1535 LNCIFG 9553 ONELEF 2425 SETBUF 1726 
DISLOP 1512 LNCeFG 4751 ONELNC 2507 SETLOP 1742 
DISPLY 1475 MESOUT 977 ONEMOV 2453 SETPNT 1747> 
NIXTEM 223e MESS 2547 ONEOQK 419 SHIFTR 6675 
OLYTEM 2253 MESS@ 7337 ONEOUT @820 SINARG 6452 
N$3 6324 MESS{ 7344 ONEPEX 2026 SINE 2065 
Nxe 6304 MESS2 7346 ONEPEY @@27— SINEIN 6492 
DXL 6322 MESS3 7352 ONERTN 2254 SINELK 6444 
hae 6311 MESS4 7353 ONERYT @433 SINES 6472 
OYL 63ie MESSS 7342 QNESET 1228 SINLST 6454 
EMPTY @023 MES@ 2544 ONESIN SINNEG 6422 
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TwOPEYX 
THOPEY 
TeIRTN 
Tua leYT 
TWwWOSET 
TWOSIN 
TwHOTRE 
TwluP 

TREVEL 
TAIVEX 
THWOVEY 
TWOWIN 
THOwWN 

TY2C6S 
TISSIN 
TelCOs 
TECSIN 
T32CO0S 


SSaCe wAR 


Soi7. 
6412 
S426 
6453 
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rh 
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